home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 42 / 042.d81 / worm xing (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  70 lines
  1. 0 print"[147]"
  2. 1 ifa=.thena=1:load"worm.spr",8,1
  3. 2 ifa=1thena=2:load"worm.ml",8,1
  4. 5 goto100
  5. 10 lx=peek(v+21):iflv=lxthenreturn
  6. 20 sys65418:pokes+4,16
  7. 30 pokes+24,15:pokes+6,240:pokes+4,17
  8. 40 forza=1to30:forzx=100to50step-25
  9. 50 pokes+1,20-za+zx:next:next:pokes+4,16:sys49365:return
  10. 100 poke53280,0:poke53281,15:print"[147]";
  11. 110 v=53248:dn=15:x=198:b=15:c=0:s=54272:kl=70:lv=255
  12. 150 fora=s to s+24:pokea,0 :nexta:pokes+24,15
  13. 160 pokes,55:pokes+1,kl:pokes+6,128
  14. 200 t$="[180][144] score= 00     [170]     [180][144] time= 00       [170]"
  15. 205 t$=t$+"[180][156]worm [170][184][184][184][184][184][184][184][184][184][184]     [184][184][184][184][184][184][184][184][184][184][184][180][156]xing [170]"
  16. 210 t$=t$+"[184][184][184][184][184][184][184]                          [184][184][184][184][184][184][184]"
  17. 215 b$="      [176][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192]"
  18. 220 b$=b$+"      [221]   [221]    [221]    [221]    [221]    [221]    [221]"
  19. 300 printt$;"";b$;
  20. 450 fory=55416 to 56175:pokey,2:nexty
  21. 460 fora=1144 to 1899 step(dn+4):fory=1 to 4:pokey+a,81:nexty:nexta
  22. 500 gosub8000:poke1020,0:sys49365
  23. 550 ifpeek(1020)>0thenpokev+21,peek(v+21)and254:gosub5000
  24. 560 x=x-1:ifx=191thenx=197
  25. 561 pokes+4,17:kl=kl-10:pokes+1,kl:ifkl<15then:kl=70
  26. 565 fory=2040 to 2047:pokey,x:nexty
  27. 570 ifpeek(v+21)=0then15000
  28. 580 c=c+1:print"[144]       [157][157][157][157][157][157][157]";c;
  29. 585 ifc<>999999then600
  30. 590 print"[144]       [157][157][157][157][157][157][157]";:q=int(q-(c/100)):ifq<0thenq=0
  31. 595 c=0:printq;
  32. 600 z=int((rnd(1)*37)+1):g=(z/2):h=(int(z/2)):ifg<>hthenz=z-1
  33. 610 poke251,a(z):poke252,a(z+1)
  34. 700 t=int(rnd(1)*2)+1:ift=1thensys49152:goto1000
  35. 710 sys49185
  36. 1000 gosub10:lv=peek(v+21):geta$:ifa$<>"q"then550
  37. 1005 print"[147]":pokev+21,0:pokes+4,16
  38. 1010 goto15000
  39. 5000 q=q+b:print"       [157][157][157][157][157][157][157]";q;:pokev,47:pokev+1,229:b=b+15
  40. 5005 pokev+21,peek(v+21)or1:
  41. 5010 pokes+4,16:fora=1144 to 1903:pokea,32:nexta:
  42. 5015 dn=dn-1:ifdn<=2thendn=3:b=b-15
  43. 5020 fora=1144 to 1899 step(dn+4):fory=1 to 4:pokey+a,81:nexty:nexta
  44. 5100 poke1020,0:pokes+4,17:return
  45. 8000 fory=1to15step2:pokev+y,229:nexty:pokev,47:pokev+2,90:pokev+4,126
  46. 8020 pokev+6,165:pokev+8,203:pokev+10,244:pokev+12,29:pokev+14,66
  47. 8025 pokev+16,192
  48. 8030 fory=2040to2047:pokey,192:nexty:pokev+39,0:fory=40to46
  49. 8035 pokev+y,6:nexty
  50. 8040 pokev+21,255
  51. 9000 dim a(37):fory=0 to 37:reada(y):nexty
  52. 9999 y=peek(v+31):return
  53. 10110 data 120,4,160,4,200,4,240,4,24,5,64,5,104,5,144,5,184,5,224,5,8,6
  54. 10120 data 48,6,88,6,128,6,168,6,208,6,248,6,32,7,72,7
  55. 15000 pokes+4,16:print"[147]time=";c:print"score=";q
  56. 15005 print"final score= (score-(time / 100))"
  57. 15010 print"final score=";:q=int(q-(c/100)):ifq<0thenq=0
  58. 15015 printq
  59. 15050 print"press space bar to play again."
  60. 15055 print"             [144]press q to quit."
  61. 15060 print"worm xing":poke198,.:print""
  62. 16000 a=peek(203):ifa<>62anda<>60then16000
  63. 16010 ifa=60thenrun100
  64. 16012 print"  are you sure you want to quit? (y/n)"
  65. 16014 a=peek(203):ifa<>25anda<>39then16014
  66. 16015 ifa=39thenprint"[145]                                      [145][145]":goto15055
  67. 16020 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  68. 16030 ifer<>63thenend
  69. 16040 sys65418:load"hello connect",8
  70.